10 INPUT"ZAEHLER";Z:INPUT"NENNER ";N:A=Z:B=N
20 R=A-INT(A/B)*B:A=B:B=R:IFR>0THEN20
30 PRINT:PRINT"GEKUERZT:":PRINT"ZAEHLER:"Z/A:PRINT"NENNER: "N/A